cervejas <-c("chope","lata","garrafa","chope","garrafa", "garrafa","lata","lata","nenhuma","lata","garrafa","garrafa", "garrafa","lata","lata","lata","garrafa","lata","chope","nenhuma", "garrafa","garrafa","garrafa","chope","garrafa","garrafa","chope","garrafa","lata","lata")
cervejas.t <- table(cervejas)

dotchart(cervejas.t)
barplot(cervejas.t)

#2. dotplot tem maior razo dado/tinta


#? barplot(as.matrix(table(cervejas)))
#? dotchart(as.matrix(table(cervejas)))